#! /usr/bin/perl -w

use strict;

use CGI::FOGE2::Test;
use CGI::FOGE2::Msg;
use CGI::FOGE2::Msg_en;
use CGI::FOGE2::Msg_fr;

my ($url, $testname, $flog) = @ARGV;

open FLOG, ">>$flog" 
    || die "Can't open $flog for appending: $!";

my $tst = CGI::FOGE2::Test->new($testname, \*FLOG);

my $reflang = CGI::FOGE2::Msg_en->new();
$tst->testname("NewRefLang");
$tst->testresult(defined $reflang, 1);

my $fgnlang = CGI::FOGE2::Msg_fr->new();
$tst->testname("NewForeignLang");
$tst->testresult(defined $fgnlang, 1);

foreach my $key (keys %{$reflang}) {
    $tst->testname($key, 0);
    $tst->testresult(defined $fgnlang->{$key});
}
$tst->finish();
